<%'Dynamic Link set Product_InfoRecordSet = CreateObject("ADODB.RecordSet") Product_InfoRecordSet.Open "select * from Products where Category = '" & Request.QueryString("Category") & "'", ConnectString("LooseScrews") set Product_Info = WrapRecordSet(Product_InfoRecordSet, "ProductID") Product_Info.Move GetRecordIndex() - 1 %><%'Dynamic Link set ProductCategoriesSet = CreateObject("ADODB.RecordSet") ProductCategoriesSet.Open "select * from ProductCategories", ConnectString("LooseScrews") set ProductCategories = WrapRecordSet(ProductCategoriesSet, "ProductID") %>
<% ProductCategories.MoveFirst %> <% while not ProductCategories.EOF %>
<%=ProductCategories.Value("Category")%>
<% ProductCategories.MoveNext %> <% wend %>
<%=Product_Info.Value("Name")%>
>
>
<%=Product_Info.Value("Description")%>
$<%=Product_Info.Value("Price")%>
>